home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
totdem.arc
/
DEMBX3.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-10
|
487b
|
24 lines
Program DemoBoxThree;
{DEMBX3}
USES DOS,CRT, totFAST;
begin
with Screen do
begin
TitledBox(1,1,80,25,27,31,30,1,' Smart Line Drawing ');
FillBox(30,7,50,18,27,2);
SmartVertLine(10,1,25,27,2);
SmartVertLine(70,1,25,27,1);
SmartVertLine(40,7,18,27,2);
SmartHorizLine(1,80,10,27,1);
SmartHorizLine(1,80,20,27,2);
SmartHorizLine(30,50,13,27,1);
repeat until keypressed;
GotoXY(1,25);
end;
end.